
Partial Class aGetDay
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Dim y As String = Request("year")
        'Dim m As String = Request("month")
        'Dim year As Integer = Integer.Parse(y.ToString())
        'Dim month As Integer = Integer.Parse(m.ToString())
        'Dim day As Integer = Date.DaysInMonth(year, month)
        Dim year As Integer = 1979
        Dim month As Integer = 8
        Dim day As Integer = Date.DaysInMonth(year, month)
        ddlDay.Items.Clear()
        For i As Integer = 1 To day
            ddlDay.Items.Add(i.ToString)
        Next
    End Sub
End Class
